perm filename PUP2[1,DBL] blob sn#062571 filedate 1973-09-12 generic text, type T, neo UTF8
(FILECREATED "12-SEP-73 13:51:50" PUP2)


(DEFINEQ

(GET_ELEMENT
  [LAMBDA NIL
    (PRINT (QUOTE READY))
    (SETQ ELEMENT (READ))
    (TRY_TO_GET_CLASS_NAME)
    (GET_LIST_OF_OBJECTS)
    (GET_SET_OF_RELATIONS])
)
  (LISPXPRINT (QUOTE PUP2FNS)
              T)
  (RPAQQ PUP2FNS (GET_ELEMENT))
STOP